home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 331 / gemfsc14 / aessrc14 / aeswind1.s < prev    next >
Encoding:
Text File  |  1989-04-06  |  1.5 KB  |  61 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST GEM bindings.
  5. ;*
  6. ;*  Maintenance:
  7. ;*   02/10/89 v1.10: Added new function, 'wind_new', available only in
  8. ;*            TOS 1.4.
  9. ;*========================================================================
  10.  
  11.           .include  "aesfast.sh"
  12.           
  13. ;*************************************************************************
  14. ;*
  15. ;* Window manager routines 1 of 2.
  16. ;*
  17. ;*************************************************************************
  18.  
  19. ;-------------------------------------------------------------------------
  20. ; wind_create
  21. ; wind_open
  22. ; wind_close
  23. ; wind_delete
  24. ; wind_set
  25. ; wind_find
  26. ; wind_update
  27. ; wind_new        |v1.10: added
  28. ;-------------------------------------------------------------------------
  29.  
  30. _wind_create::
  31.           AControl  100,5,1,0
  32.           bra.s     wind_do
  33. _wind_open::
  34.           AControl  101,5,1,0
  35.           bra.s     wind_do
  36. _wind_close::
  37.           AControl  102,1,1,0
  38.           bra.s     wind_do
  39. _wind_delete::
  40.           AControl  103,1,1,0
  41.           bra.s     wind_do 
  42. _wind_set::
  43.           AControl  105,6,1,0
  44.           bra.s     wind_do
  45. _wind_find::
  46.           AControl  106,2,1,0
  47.           bra.s     wind_do
  48. _wind_update::
  49.           AControl  107,1,1,0
  50.           bra.s     wind_do
  51. _wind_new::
  52.           AControl  109,0,0,0           ; |1.10: added
  53. wind_do:
  54.           .cargs    #4,.intin
  55.           lea       .intin(sp),a1
  56.           ACall     RET2USER
  57.           
  58.  
  59. ;         end of code
  60.  
  61.